home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 46 / 046.d81 / tech letters (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  635 b   |  20 lines
  1. 0 ifa=.thena=1:load"tech.fnt",8,1
  2. 5 fp=4:poke53272,(peek(53272)and240)orfp
  3. 10 poke53280,1:poke53281,1
  4. 20 print"[147]              tech letters"
  5. 30 print"            by matthew lewis"
  6. 35 print" abcdefghijklmnopqrstuvwxyz  0123456789"
  7. 40 print"     press space to toggle between"
  8. 50 print"   the tech font and the regular font."
  9. 60 print"             press q to quit!"
  10. 70 ifpeek(203)<>64then70
  11. 75 a=peek(203):ifa<>60anda<>62then75
  12. 80 ifa=60thenfp=fp+10:iffp>14thenfp=4
  13. 90 ifa=60thenpoke53272,(peek(53272)and240)orfp:goto70
  14. 100 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  15. 110 ifer<>63thenend
  16. 120 poke53272,21
  17. 130 print"[147]load"chr$(34)"hello connect"chr$(34)",8"
  18. 140 print"run"
  19. 150 poke631,13:poke632,13:poke198,2:end
  20.